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EDITOR’ Ss COMMENTS - ‘i = “a 3 a. Oe 


JI USER GROUPS AND PUBLICATIONS :- Page 


CGINTEF PATCH Vi.4 REVIEW :- Pages 4-5 

This latest version of Larry Taylor's Printer Patch has 4a few enhancements 
over previous version. Sc if you have an EPSON or EPCON compatible printer then 
this fatch will primt cut ali tne VZ°s inverse amc graphic character set anc oc 


‘ 


notn 0 and “i-RES screen aumps as wel. 


EDUCATIONAL ~ MENTAL MATHE Sy Jonmn SARLAND :- Fages Is 
With quite a few /Z's appearing under the christmas tree this y 
orogram wouic silew echool children to do more than play games on their V.. 


VALEIDGSCOFE s+ Repert QUINN :- Page / 
té watcninc 41. tne scar cperas cr 7. :eaves vou Serec ther “he englecs 
santerne in NALEITDCSCOPE wiil carccle you. 


SYE/CLOAD ROUTINES by Dave MITCHELL :- Pages 3-¢ 
bie users used to have it ail to themselves being abla to SAVE. LOAD 

creens, but ne more thanks to Dave. Net as *ast af dish Out .* 

Ss seo anc «cu ran have vour own slide snow. 


MAJOR MAILING UIST JPDATE oy soe LEON :- Pages if-ic 

A= ogromisec itr last .ssue this update adds host of disk commands p.us cmup. 8 
jther <+eatur2s as wel.. Now you can fave many DATA FILES on tne one 215k 
instead <* cust one as was the case oreviously. urther imprsvemerts car ce 


nade and  : il@ave these te you. My thanks to Staff at D.Smitn rar their sels 
cS i 


BOOK REVIEW by Ross woods :- Page 14 

Ross gives a brief rundown on an Assembly Language Programming Manua. ror 
beginners written by Steve Olney. It is specifically written tor the Ve 2 
should be very helpfull for beginners and advanced programmers ailee. Jon * 
forget the  2eok can only take you so far and what you get mut sf if tepencs 
the etforh you put in. 


ALOCK TRANSFERS by Chris HOBROUGH :- Pages iO-1s6 
(ast <ssue Robert Quinn showed us now to do block transfers trom basic wni.3 


“7 


m this i1s8ue Thr:is shews how to do it in Assembly Language. Steve Uinev = 360K 
*sui2¢ 96 a 21g 7elo in understanding the precedurss invelved. 


Z\KENC ING SIND ROUTINE oy Larry Taylor :- Pages t7-it 

T found the String search routine tc be very usefull as it wii. FIND oo07n 
numeric and titeral strings in your basic programs. Next issue will have 4 
SaSic version for those persons not familiar with assembly language wnich .5 
nost of us. 


tO Tt “SURSELS += Page 1° 
If some 2+ the “evs on your VZ2@@/700 aon t seem to work the you may need 4 
sew nembrare “evbdoarc wnich most persons should be abie to change themsé: és. 


“Oo 


= a ~ rH, —_ ~- $ ’ 
“GR SALE - = x fF WwW. 


. PATCHS.1 and EXTENDED DCS 71.9 - Page —2 
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mmecz +3 4 Steer, aocut “our geopie ramec ZVERYRCDY, SOMEBODY, ANYECDY ana 
WGBECD: . “sera was an taportant cece *95 De tone and IVEFYEGDY was sure SCMESCO’ 
“act fore o7 SNWYSECLY would Nave dome <= sut NOBCDY <tc 2c. SGMESICDY $c ang 
socuL o<iréet secause .: was =VERYBSODY s 2zop. CVERYECDY iuncugn: ANYROL: cculad cs 
- Dut MOSSE’ -salisec that a “4 -A0e 40 2. “S sehdgee ao Sher ce ee SCL? 
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FDITOR’S COMMENTS Con i - - = ins S — 


The Committee of Hunter Yalley VZ Users’ Group wishes all our 
members and their families both near and far the MERRIEST of 
CHRISTMAS and HAPPINESS and PROSPERITY for the NEW YEAR. 


Another year has nearly gone and it's a nice feeling knowing © 
we’il still be around next year. Once again I would like to 
thank our menbers both near and far for their continued support. 


My thanks also go tc Dave BOYCE, Dave MITCHELL, kKobert 
QUINN and Larry TAYLOR without whose continued support we 
wouldnt have much of a publication. Thanks Guys. [’a 
constantiy amazed at the time and effcert some members put in wher 
asked for help or advice. 


This assue alsc marks my first year as Editor. i found tne 
work very time consuming, personaily rewarding and at times 
frustrating, never more so than the last month or so. At times 


I doubted whether this issue would be published this year. 


1 had major system failures since my som tyes h:m again. 
decided to plug ain his C64 in my littie biack box With surge 


surpressors, etc. My VZ has’nt been the same since then with 
constant crashes, hangups, wiping disks, etc. My son promised 
he would’nt touch ay YZ again. He. even made a New Years 
resolution —- HAVE SCREWDRIVER - WILL TRAVEL. 

ver LISER GROUVUFS — FUBLICATIONS =- wi 
¥VZ USER MARK HARWOOD P.O.BOX 154 DURAL N.S.W. 2158 
LE’¥Z OOP J.C.E. D’ ALTON 39 AGNES St. TOOWONG QLND. 4066 


VSOFTWAREZ — SOFTWARE/HARDWARE FOR SALE 


VZ DOWN UNDER SCOTT LE BRUN 59 BRENTWOOD DVE WANTIRNA 3152 
SOFTWARE/HARDWARE FOR SALE 


VZ-LINK ~ PETER J. HILL P.0.BOX 1972 C.P.0. AUCKLAND N.2. 
WAVZ - GRAEME BYWATER P.O. BOX 388, MORLEY W.A. 6062 
BRISBANE VZ USERS WORKSHOP - C/O 63 TINGALPA ST. WYNUM WEST 4178 


HUNTER VALLEY VZ USERS’ GROUP - P.O. BOX 161 JESMOND N.S.W. 2299 
EDITOR-JCOE LEON (049)51 2756 - SECRETARY-ROSS WOODS (049)71 2843 


SUBSCRIPTION —- H.V.V¥Z.JOURNAL - & MONTHS 39.00 - 12 MONTHS $18. 09 
New Zealand ~- 6 MONTHS $12.00 - 12 MONTHS 324. 00 


NEW VENUE - NEW DATES - NEW VENUE — NEW DATES —- NEW VENUE 


MEETINGS - FIRST FRIDAY of MONTH at JESMOND COMMUNITY CENTRE 
MCRDUE PARADE -— REAR STOCKLAND HALL © BIG W> JESMOND 


NOTE :- When writing to any above or 4.¥.70. Users’ Group tor 
.nToOr™maticon viease enc.iose 4 3.5.A.3. or 2 int. xkepiy coupons. 
Ne 4ATERiaL in this Jcurna: aay be reproduced in Dart cT 


+ oe PT 


BRO? wW1taci- tae tensent if *he Author whe retarazt UOPYRIGAT. 


PRINTER PATCH V1.4 REVIEW - - - 4 


YVI-EPBOM PRINTER PATCH V1.4 -—-— AVAILBLE FROM VSOFTWARE 


The VIZ-EPSON PRINTER PATCH allows EPSON or EPSON compatible printers to 
LPRINT or LLIST all of the VZ‘s INVERSE and GRAPHIC characters. The LO-RES and 
HI-RES screens can also be dumped to the printer as well. 


This latest Version 1.4 has a few extra enhancements over previous versions 
which I found very useful. This Journal would look dull if I didn’t make use of 
the facilities offered by the Patch. Ali the program LISTings, screen dumps cf - 
both HI and LO-RES screens were done by this Patch. 


Before the Patch like many VZ users I used to go right through most programs | 
and remove ali INVERSE and SRAPHIC cheracters 50 ay printer would print out the 
progr ams. The only printer on the market that used to be able to print out the 
WZ character set was the 5P 1@@ which is ne longer availble. | 


INVERSE and GRAPHIC CHARACTERS :- 


The Patch handles them with ease with improved character ¢orm. Have a lock 
at Mental Maths and Mailing List Update programs for examples. 


LO AND HI-RES SCREEN DUMPS :- 


As there are aany different printers on the market which sometimes con * 
print out the same and have different LINE FEED characteristics. For that 
rpason the COPY command was given extra parameters, COPYn and COPYAn, where 1 
can be from 4 to &. 


The COPYA command is very usefull for LO-RES screen dumps and is ideal for 
printing program menus. When typing in a menu from a program sometimes it 5 a 
bit hard to know what it should look like. The Mental Maths and Mailing List 
Update screen dumps of their respective menus show what the menus should look 
like. With my AMSTRAD DMP-2@@@ printer I used COPYAS for LO-RES menu screens. 


NOTE - A one dot wide border is printed to denote borders. 


COPYAS was used for HI-RES screens. See Kaleidoscope program for examples 
ot HI-RES screen dumps which were reduced to fit the page. The screens dumps 
ar2@ correct as Kaleidoscope produces vertical patterns which only use middle 
part of screen. 


L_TABi(n) - PAGE(n) - FEED(N) 3:- 


—~- 


These 3 commands are very useful with program LISTings. 


LTABin}? - n = 2 to 63 - This command is used for setting of left margin and 
works witn LLIST, LPRINT and COPY commands. It can also work with DIR and 
STATUS as well by directing the VZ to print to the printer instead of the 
screen. §&65. :- 


LTAB(1@):POKE 368676,1: DIR: STATUS 


1¢ vou want to use another TAB position then just type in your new TAB 
setting. There 2.5 no need to zero vaur previous TAB setting as the wTAB‘n:; 
command does 2¢ tor you automatically. LTAB (4S) is the same 4s 
LTAB(@) :L TABIAS) . 


PQ@GEin: - 1 = 3 to 127 - FEEDINd - nm = Oto lay tH 
“hese two TOmMManas set the PAGE Lengtn ‘Number ot .ines ser sage anc err 


skito. TEED(n!' will xe ignored uniess :: i383 Jess than sage .ength. “he - 
cpamanos used cogether are ideal to LLIST our arcqrams. 25. '~- 


FRINTER PATCH Wi .4 REVIEW CONT . —? °. 


LTAB (18) :PAGE (66): FEED (4) :LLIST 


Using my printer anc computer paper the above {LISTS my program to the 
printer with a left margin of 10, 66 lines per page and perf. skip of o lines. 
This assures me that no text is printed on or near the perforations. The | 


setting for your printer and paper may be different than amine. Test out all the 


functions of the patch so you understand and are familiar with it‘s operation. 


It’s good practice te ZERG the PAGE and FEED commands after use as .t'5 easy _ 
to forget or you could end up with a form feed in the middle of the page. 
Setting FEED(®) to zero turns of auto form feed. 


LTAB(n), PAGE(n:, FEED(n), LLIST, LPRINT and both COPY commands can be used 
in direct mode or from within your program, out will only work properly while 
the patch is present. The Patch will also recognise all the Aidden commands 


which may have been entered using an extended basic utility. Steve Olney’s . 


EXTENDED BASIC can also be used with the patch, out is not dependant on :t. 


VERDICT :- Top marks to Larry Taylor for an exellent utility. f could at. 


imagine ceing without it. Ed. 
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The Mental Maths program on the next page was designed for young children to 
learn simple maths. For that reason the addition and subtraction top limit or 
20 was chosen. 


The largest sum possible is 20 plus 20 or 20 minus 20. it's not too 
difficult to to raise or lower upper limit on all four routines. I[/'11 explain 
how it can be accomplished using the Random Addition routine at lines 100 to 168 
aS an example. 


Line 11@ PRINT: A=RND (2@) : B2RND (20) 

Change the 20 in both enclosed brackets to 99. 
Line 120 IFA> 20 ORB> 20 THENI1@ 

Change both 20's in line 128 to i@. 


What we have done is raise the upper limit in line 11@ to 99 while lowering 
lower iimit in line 120 to 1@. Line 120 tests to see if the randomly selected 
number is greater than 1@ and if it is it sends it back to line 110 to select 
another umber. This test is carried sut till the number selected is iess than 
Or equai :@. Instead of upper limit of 1@ a larger upper i:mit can be selected. 


ENHANCEMENTS :- 


Altnougn tne program can oe tailor2a for a particular ievel :t would oe nore 
Nesirabie ta include in che orogram levei selection. “hat way 17:5 orogram 
could se useo over a slider age jroup. Jtner anhancements cculd 5e nace as wei. 
<3 surt vour .articular seeds. Jur aim was to give vou a oasis to wor: “rom. 


SESDUCAT IT ONAL oa METAL MATH - pa 


> OAK KKK KKK KKK KKK KK KKK KK KKK KEKE HK KKK KKK KKAKKKAKKKKAK KK KA KK S 
’x MENTAL MATHS ROUTINES SUPPLIED BY JOHN GARLAND * 
> KKKKKKKKKK HK KAKAKAKKKKK KKK KKK KK KR RK OR EK RK KK KKK 


CLS: COLOR, 0: POKE30744, 96: COLORT : POKE30862, 80: POKES@862, Sz 
PLN a 2 PR TNT °29 SHIFT °T° 


PRINT” i} ist i a Oe i! Gu i i” 

PRINT" ee ae tne ae ae mee Se sr i or an a me ne cee me ae om sn ce nee ee ee ee mee *: PRINT 

PRINT" 1} — RANDOM ADDITION “:;PRINT 

PRINT”* 2; —~ RANDOM SUBTRACTION “:PRINT 

PRINT" 3°: -— RANDOM TIMES TABLES": PRINT 

PRINT “ 4; —- NORMAL TIMES TABLES*:PRINT 

PRINT” S: — QUIT MENTAL MATHS “:PRINT 

PRINT "ae NUNN IED, -:POKEZS1E2,227 


GOSUB600:REM 31 SHIFT ’Y° 

AgS=** : AS=INKEYS: AS=INKEYS: IFAS=* “THENGSELSEX=USR (1) 
[FAS="1"THEN 19@ELSEILFAS="2" THENZO®O 

I FAS= "3 “THENSQOELSEIFAS="4"THEN409 


8@ IFAS="S*“THENCLS: ENDELSE6=> 
SQ : 
'9@ CLS: PRINTTAB(6) "9 MS eee isc I” - SGOlUB7OO : GOSUBEOS 


11@ PRINT: A=RND( 20) : B=RND( 290) 

12@ IFA> 2@ ORB> 20 THEN119 

13Q@ PRINTTAB(G)USING" ##%3A;3:PRINT® PLUS*; 
149 PRINTUSING" ## °;B;3:PRINT“= ‘3: INPUTK 
15@ IFK=SSSTHENRUNELSEI FK=A+BTHEN119 

16@ IFK<>A-BTHENGOSUB500: PRINT: GOTO130ELSE 110 


200 CLS: PRINTTAB (5S) “§ MMccSRIMO MECN pecieeielEM y" > GCOSUB79O : GOSUBE OU 
210 PRINT: A=RND(20) > B=RND(20) . 

229 iFA> 2@ ORB> 20 OR A<B THEN2Z190 

23Q@ PRINTTAB(S)USING" ##“;A3: PRINT" MINUS®; 

240 PRINTUSING" ## “;B;:PRINT“= *3;: INPUTK 

25Q@ ILFK=S9STHENRUNELSEIFK=A-BTHENZ10 

26@ IFK<>A-BTHENGOSUBSOO: PRINT: GOTOZS@ELSEZ 10 


30@ CLS: PRINTTAB(5) "§ Msi aie mee Seesaw A” :GOSUB7O@ : GOSUBE9® 
310 PRINT: SOUNDS®, 1:A=RND(12):B=RND( 12) 

329 IFA> 12 OR B> 12 THENS19 

33@ PRINTTAB(S)USING* #4#"°3A;:PRINT" TIMES"; 

34@ PRINTUSING" ## ";B;:PRINT*= “3: INPUTK 

350 IFK=S9SS9THENRUNELSEI FK=AXxBTHENS 10 

360 IFK<>AXBTHENGOSUBSO®: PRINT: GOTOSS@ELSES10 


4@@ CLS: PRINTTAB( 4) "9 MMR(e)ciis] eS |= = om I" = GOSUBY OO: GOSUBEDO 
410 PRINT: FORA=1T0O12: FORB=1TO12:SOUNDS®@, 1 

429 IFA> 12 OR B> 12 THEN41© 

43@ PRINTTAB(G)USING" ##°3A;3: PRINT" TIMES"; 

44Q PRINTUSING* #4 *%:B;:PRINT‘= “3: INPUTK 

45@ IFK=999THENRUNELSEI FK=AxBTHEN47@ 

AGO IFK<>AxBTHENGOSUBSO®@: PRINT - GOTO430ELSE4 19 

479 NEXTB: NEATA 


SQ COLOR, 1: PRINTTAB 4)" 





3i@ COLOR, @: RETURN 
30@ SOUNDS@,1;25, 1: RETURN 
"AQ PRINTTABIS) "TYPE 999 TO EXIT": RETURN 


KA_EIDOSCOPE BY ROBERT @QuING” 


N 


—-—_ 


ZOO SICKO OK IOC ICICI KI DK ICI ROCIO AR I IR EK I AK KE KK HK EH 
210 °* KALEIDOSCOPE PROGRAM DESIGNED BY ROBERT QUINN * 
22O OOO IO OCI OK KR KK 2 DKK KK KK EK OK OK KKK KK KKK KK 


230 °* N — SWITCH BACKGROUND COLOR A -— CLEAR THE SCREEN x 
249 °* B — SELECT BLUE G — SELECT GREEN KO 
250 °* Y - SELECT YELLOW K ~ SELECT RED x 
260 °* SPACE ~— PAUSE SWITCH RETURN - RESTART * 
ZI@ °* @-- 9 —- SELECT PARANETES Q - ADD PARAMETER TC A * 
Z23@ °x WwW - ADD PARAMETER TO ¥ Cc ~ COPY TO PRINTEXK x 


230 SOOO ICIOK HOR III ORCI ACIS IE I OR KKK EE 
32Q@0@ MODE( 1) :H=3:COLOR, @ 

312 Bats baieGa tte Gee GGlvese 

320 H=H+1: IFH=STHENH= 

330 C See ee TO RND CS). FaRND(@): TCRND(3) :G=RND(Q): [FRND(6) =GTHENS !¢ 
349 COLORH:RX%=1:A=63:B=31 

350 X=0: Y=R%: E=1-R%: UH1: VH1-2kR% 

360 LFNOT(X>Y) THENS7QELSER%=R%+ 1: IFR%< SZTHENSSOELSESZO 

370 SET(X+A, Y+B) : SETCY+A, X+B) :SETCY+A, —~X+B):SET(X+A,-YB. 

380 SET! -X+A,-Y+B) :SET(-Y+A, -X+B): S<SETi-Y+A, X+B) :- SET‘ -A+A. 

39@ aAS=INKEYS: AS=INKEYS: [FAS=" "THEN46@ELSESOUNDZ®O, 1} 

4900 IFAS>"~ "ANDAS< “:", L=VAL{ A®!: ELSEIFAS="N",K=NOTK: COLOR. Apel x 
410 [FAS—“A"“THENMODE( 1) 

420 TFAS="W"THENW=LELSEIFAS="Q"THENF=L 

420 I Fas="G" THENH=1ELSEI FAS="Y"“THENH=2 

449 IFAS="B"THENH=SELSEIFAS="R"THENH=4 

445 IFAS="C"THEN:COPYAS 

45@ COLORH: IFAS=CHRS(13)THENSI@OELSEIFAS="* “THENJ=NOTJ 

460 IFJ<@THENSS®O 

473 I FE< @THENV=V+RND(9) : IFC=1THENE=E+U : GOTO49@ELSEE=E+V : GOTO490 
480 Yx=Y-W:V=V+T: ExE+¥V 

49@ X=X+F:0=U+G:GOTOS6®@ 

500 : 


EDITOR’S COMMENT :- When typing in above program there’s no 
need to type in lines 200 to 290 or line 50@. This program would 
be ideal for tape users to try it with Dave Mitchell’s HI-RES 


CLOAD/CSAVE routine. It will fit nicely between lines 179 to 
19@@@ in iisting 3. Line 445 is for screen dumps to printer gor 
persons having Larry Taylor’s Printer Patch V1.2 or V1.4. Beiow 


are 3 screen dumps which have been reduced. 





CSAVELSCLOAD BY DAVE Mir TCHeti_ os S&S 


There are a few routines around that save and load screen disipays from tape 
but they involve moving the displays around in memory using basic. They do but 
are a obit messy where you CLOAD the display but after it is loaded the CLOAD 
routine jumps to basic and does not return to the program you are 
running. You then have to run the next line number after CLDAL. 


What should be done :s to run the program without any breaks. This is what 
1 have achieved. The program CLOADS MODE (1) displays from tape and loads 
directly to the screen in the same way as BLOADING does. BLOADING screens takes. 
aprox. 4 seconds and CLOADING takes aprox. 3@ seconds after the display has been 
found on tape. This may seem long as compared with disk but if 15 quicker than 
the other versions ! discribed earlier. 


1 use a Small machine code routine to capture the commanc PLOAD and it 13 
then processed by my new CLOAD routine. This new routine then loads “rom tape 
ONLY BASIC PROGRAMS that start at 28672 decimal ‘70@@H) ALL OTHER PROGRAMS ARE 

IGNORED. So after using this srogram the computer should te reset to use PLOAD © 
in the normal manner, 


wiSTING © i- 


1@ POKES@884 , 151: POKES@885, 125 
28 POKES@9469 , 153: POKETO97@, 125 


Type in listing {1 and run. Listing 1 sets the start and enc of program cc 32 
new start and end to allow for the machine code to be placed at the start of the 
program so as to allow the machine code to be saved along with the basic 
program. Normally the start of a basic program is 31465 decimal, it 13 now 
shifted to 3163°%. 


Line 1@ shifts the start address 
Line 2@ shifts the end address 


LIStING.2 33> 


1@ FOR I = 21463 TO 31639:READ A :POKE 1,A:B=B+A: NEXT 

°9 IF B <> 19235 THEN PRINT "ERROR IN DATA": END 

IQ NEW 

4@ DATA 2,2.9,123,8,0,177,51,48,56,54,58,44,49,51,58,177,51, 46 
SQ DATA S6,54,51,44,49,50,51,58,88, 213,195, 40,88,41,0,0,0,0, ,2 
bQ@ DATA 42,4, 120,34, 69,123,33,42,123,34,4, 128,17, 151,123,237 

JM DATA 33,164, 120,33,38,123, 195, 233,54,142,0,0,0,217,55, 91,29 
30 DATA 209, 183,237, 82, 213,217,194, 120,29, 229,205, 128,29,32,2 
90 DATA 209,201,254, 195,40, 4,225,195, 147, 66,35, 209,209, 17,28, 29 
1@@ DATA 213,229,233,57, 120,203, 182,203, 158,225,243, 205, 140,53,229 
L119 DATA 205,177,53,32, 66,56, 205, 244,55, 285,251 ,53,58,219,122 
128 DATA 254,240, 32, 246,33, 96,56, 205,4,56,221 ,35,35, 120,205 

130 DATA 194,56,56, 231,122,254, 112,32,226, 205,115, 63,245,122 
14@ DATA 254,120,40,5,241, 18,19, 24,242, 241,225,251, 201,0,0,2 


Type in listing 2 and RUN. LISTING 2 is or the capture and execution oF 
sne command CLOAD. 


GLISTING =v 


~~ 198 MODE |: 

{42 POKETI2TT, SEEK  S@8E4: : POKETI27 4, PEEK .C@ess) 
12M PQKETIZ75S,, PEEK (20969! : POKESI276, PEEK (3097) 
7Q Ase": AS=INKEYS:A$= [NKEYS: (FOS=°" THENI TO 
64M IF As='S"THENSOUNDSD, 1: SOSUB1AO@ 


WIRES CSAVE YCLDAD COMNT - i - = 


15@ IFAS="1."THENSCUND2@, 1: GOSUB195@ 

160 IFAS="C“THENMODE (1: 

178 GOTO120 

1200 POKEZ@S884, 2: POKES@BSS, 112: POKESN969 , 8: POKE3897@, 120 
1912 CSAVE"PICTURES” 

1020 POKESO884 , PEEK (31273) : POKE30885 , PEEK (31274) 

1930 POKETO969 , PEEK (21475) : POKESO970, PEEK (31476) 

104Q SOUND2@, 1:RETURN 

1058 POKESO79¢ , 1: CLOAD 

1948 POKESQ794, 2: SOUND2@. 1: RETURN 


Type in listing 3 but ao not run. Listing J is a small routine for CSAVING 
and CLOADING -+rreom tate. It is only the bare essentials. Screen dumps t2 
orinters. at- 1. leave to someone esle. Disk users could add disk saving anc 
‘9ading ‘eatures to it as well. The following is how 1 transfered screen CUM = 
from disk to tape. 


1 GOTO 198 
1@ MODE (1):BLOAR" PICTURE” 


Everytime ! wantea te save ai display from disk 1! *vpec the name sf re 
display intc line 1@ and RUN 18. NO instructions appear on the screen as .* 
goes to HI RES, ‘MODE -°. 


a 


key SAVES the display to tape 
key LOADS a display from tape 
key clears the MODE(1) screen 


9 © 


LISTING 2 EXPLANATION :- 


LINE 190 MODE‘1) HI RES. 

LINE 11@ saves the start address of the program 

LINE 120 saves the end address of the program 

LINE 138 - 178 looks for an input from the keyboard 

LINE 1908 sets up the start & end addresses for saving the scrsen 

LINE 1@1@ CSAVES 

LINE !0@20 -102@ resets the start % end addresses 

LINE {240 makes a noise and returns for another input from the keyodoarec 

LINE 1050 POKE 30796,1 disables the waiting % loading nessages at the bottom ot 
the screen. the only tape message printed if it happens is the loading errcr. 
“INE 196@ resets 20796 & makes a noise & rsturns for another keyboard input. 


The sound commands in the routine are important as we have no other way of 
knowing if the lcading and especially the saving routines are “innished. 


Sf+er entering listing 3 we are almost ready to csave the program but first 
we must change the start address back to 31465 WITH NO LINE NUMBERS "PE :- 


SPOKE T0884 ,257:PCKE Z@RBS,i22 and then CSAVE or SAVE the program. 


The LOAD jo$machine code: routine is saved along with the dasic prograin 
Fntering more lines is no problem just type away. OR after you have a number of 
screens saved on tape you could use a FOR NEXT loop to load all the displays one 
atter ancther. 
2S. :~- POKETOTTE, 1: MCQDE (1: :FORIR1TO N :CLOAD: NEXT 
No.3 tne stumber of disclavs saved on tape. 


MmMAaATIOR MYLIST UrFDpDATE —- J0O0E&80LU:u: *iLCEO?rM i 


This and the following two pages contain tne changes and additions to be 
done to Mailing List to give disk users full compliment of disk commands. The 
most important being SAVE whicn allows you to save DATA FILES to disk using any 
filename up to 8 characters long. What it means 15 that now you can save many 
DATA FILES on disk instead of only one as per D.Smith’s Technical Bulletin iit. 


Whether you have original Mailing ‘List or modified version according to. 
Rullettin tii the following mods are same for both versions and now to the | 
conversions. If you have an Extended Basic with delete command then BRUN it 
first and then load Mailing List into the V2. 


STEP 1 - LIST line 2@. It should read - 20 GOTO33 or 20 SOTOSS. Next cursor up 
to line 2@ anc change 28 to 1@. This new line 14 is the first modification ara. 
do not change it agair as shown on next page. I bought my M/List years ago ard’ 


when 1 compared it to the version being solic now line 20 was one of the: 


di¢ferences ! discovered. Therefore your new iline 1@ must GOTO where YOur ~ 
previous line 2@ went otherwise the mods wont work. 


| Before <+yping in the new lines some oid and no Longer nectessary :ines must” 
se deletec. Tyce in the “oilowing six lines one at a time gressing SETURN after 
Bach line number. 12 14 2@ #1@85 120F 1520 


Next aorange of lines aust be deletec. if you have Ext. Basic icsaced tnen 
use the DELETE command with the following lines otherwise use the littie delete 
routine below. {880-1240 5@@@-524@ 4200-7090 22800-25040 


@ 01808-1048 
2 POKES1469,48:LIST @ 
4 POKET1469,182:60T0 @ 


Next type in RUN4 and press RETURN and then type in RUN again prassing RETURN. 
If you try to LIST lines 1800-1940 you'll find they no longer exist. LIST line 
@ anc ‘type in the next range of lines to be deleted and repeat orevicus 
procedure. Continue till all required lines have been deleted. Next delete 
above routine Dy typing @ and pressing RETURN and the same for line 2 and 4. 


Now we can proceed to enter the new lines and care must 5eé taken with “nem 
because i+ vou *vpe in wrong line number you could wipe cut existing line. 


DO NOT CHANGE, ADD or SUBTRACT a single character or space in lines 1@ to 2@ as 
these are the neart of the new disk routines. All the spaces within the quotes 
in above lines are 92 spaces iong. When saving program to disk save it as 
DISKLIST. 


The operations of the ERAse, REName, SAVE and LOAD routines are tne same 
$0 an. comments made about the ERAse routine also apply to the others aS weil. 


ERASE ROUTINE ‘Lines 3@@-8@5) :- 


--ne 300 - INPUT NS asxs for FILENAME. 

SOSUB77@ - This is SPACE TO START ‘Q° TO QUIT routine. 

AD=31481 - This :5s the memory address of the first SPACE in tine bas 

SOSUB27 - This is the FILENAME POKE routine. it POQKEs the FILENAME sou anter 2c 
jetween “he auotes in line 12. AD is the the address 1t pokes it in. Tr your 
c:lename is less cinan = characters then tne POKE routone acds extra specee <c 
Nake up 3 inaracers. 

SCOSUB .2o- wine 12 Joes the actual =FAsing. 


MOTE - [+ vou 1st lines 2@ tc 2M after using RA. REN, SAVE anc AoAL 
fopectoeans ou ol 3ee@ orevicus silenames ctrintec Jetween iné WeCTtSs. “ave 


meelcs 7 tnemn as tne WEN TTLENAME writes sver them. 


MmaIOR MYLIST UFDATE CONT - - - 





GOTOSS 

ERA" “: RETURN 

REN" gee “: RETURN 

OPEN* ",1:PR#* *, DT, DTS: RETURN 

PR#" “, DS (N): RETURN 

OPEN “ ",0: INR" *, DT, DTS: RETURN 

INH" " DS (N) : RETURN 

CLOSE * "; RETURN 

7s a Wa tn Lies: | copter A taagr = 

FORPO=@T07 : POKEAD+P0, ASC (HI DS(NS+" *,PO+1,1)):NEXT 
RETURN 

M1 $24 seeccsesscsssssssssssse= ===": REN 28 EQUAL SIGNS 
SP3=" *":REM 28 SPACES 

SQS= "} Sigh ae ee ees §" : MK S= “9 aS 


§0@ GOSUB30:COLOR7: PRINT@S34, “§ MSR12DIACEm 8 *;DTS 

605 PRINT@66,HIS 

610 PRINT@® 98, “ig — REN FILE if - ERA FILE" 

615 PRINT@162, "S| — SAVE DATA i ~- LOAD DATA“ 

620 IFNES= "CHANGE “THENPRINT@i63, HK 

S630 PRINT@226, "i}] -— DIRECTORY #@#@ - INIT DISK" 

635 PRINT@®290, “iI—-MENU PEEK S4-SAVE i 2EPL": PRINT@S22,N13 
640 PRINT@354, SPS: PRINT@386, SPS: PRINT@4590, SPS 

S45 COLOR7: PRINT@O354, "§ SS Seem f *:SOUND39@, i 
650 SFs=*":DMS="" : DHS=INKEYS: DHS=INKEYS: IFDMS=* “THEN6GSO 

655 IFDMS="R"“THENS2@ELSEI FDNS="E “THENGQ@@ELSE I FDNS="S “THENSSO 
S60 IFDMS= "L" THENSS@ELSEI FDM$= "D “ THENGS@ELSEIFDHS=" I "THEN750 
S65 IFDMNS="M" THEN LO@O@ELSE I FDMS=**"THENSZO 

S70 IFDMS="& “THENSSSELSEIFDHNS="P"“THEN7OOELSEESO 

675 : 

68Q@ COLOR7T: SFS="¥ (epee Seabee el ad 8" > GOSUB77O 

685 CLS: DIR:STATUS: PRINT@17, "§ Maasai i" ; 

6930 SOUND39, 1:GOSUB780: GOSUB7900 : GOTOGO0 

695 : 

700 REM" ro 

705 CLS: DM$="":PRINT@2, SQS 

719 FORPK=31477T03 1682: PRINTPK ; PEEK ( PK) ;CHRS( PEEK( PK) ) 

715 IFINKEYS=" “THEN72ZQELSEIF INKEYS="Q" THENGOSUB40000 : GOTO6G00 
720 IFINKEYS=" "THEN7 1SELSENEXT 

725 SOUND3@, 1:COLOR7 : GOSUB28 : GOTO6GOO 

730 : 

750 SFS= "| M6ihewee ei ias i“ : GOSUBT79 

755 PRINT@450, “9 SG eee ise EF“; >: SOUNDSO, 1 

760 INIT:GOTOG85S 

785 : 

772 COLOR7: PRINT@354, SF3:S¥F3="" 

775 PRINT@450, SQS; :SOUNDS®O, 1 

7890 INS=INKEYS: INS=INKEYS: IF INS=* "“THEN7S9O 

785 IFINS="\ “THENRETURNELSE!I FINS="Q"THEN6G40ELSE780O 

735 : 

800 PRINT@354, "9 MSS MSBIM I a | * 3 : SOUNDSO, 1: INPUTNS: GOSUB779 
805 AD-31481:GOSUB22: PRINT@450, SPs: GOSUB12:GOTO685 


SiS = 

829 PRINT@S54, "| MMI); : SOUNDSO, 1: INPUTNS 
825 aD=31501:GOSUB22 

330 PRINT@386, "1 MUSIMINS i | * . - SOUNDSO, 1: INPUTNS 


835 AD=31512:GOSUB22: GOSUB77@ 
349 PRINT@450, SP3:GOSUB14:GOTO6e>S 
B45: 


MATIOR MYLIST UPDATE CONT .- 


850 
855 
860 
865 
879 
875 
8890 
885 
8390 
895 


PRINT@SS4, “§ ERS | 


S¥Fs="4] 


PRINT@354 , SPS 

COLOR7 : PRINT@254, "1 {SMa eens § “3: SOUNDSO, 1: INPUTNS 
GOSUB77@: PRINT@450 ,, SP$; :SOUND3®@, 1: AD=31603:GOSUB2Z2 

AD=3 1619: GOSUB22: AD=31646 : GOSUB22 : AD=3 1674: GOSUBZ2 


GOTOG6GOO09 


IFDT< >OTHENSSOELSEPEINTSSSS, * 
SOUNDS , 7: GOTO645 


Po cers Th Menor) Ble 


“;: SOUNDGO, 1: INPUTN®:GOSUB770 
PRINT@450 ,, SPS; : SOUND39, 1: AD=31533:GOSUB22 

AD=3 1549: GOSUB22 : AD=3 1576 : GOSUBZ2 : AD=3. 1674: GOSUB2Z 
GOTO5000 


; selects 8" 7: GOSUB779O: PRINTS45@, SPS 
COLOR? : PRINT@354, “I MEScXEeeM a : DISKLIST *::SOUND3®, | 
ERA"“DISKLIST* 

S¥FS="] SELVES § 7 

I FDM$= “~ “THENS45ELSEGOSUB7790: PRINT#450, SP? 
COLOR7 : PRINT@3254, “] MBwediiems © DISKLIST 
SAVE*DISKLIST" 


7; :SOUNDS@, : 


3690 

19900 
1919 
1920 
1930 
1949 
1945 


1075 
1980 


1110 
1209 
1219 
1220 
i260 


5800 
5829 
5290 
5210 
5220 
maece 
5230 
5240 


5330 


6000 
690290 
6090 
51990 
5119 
6120 
Siz> 
6139 
6140 
7DOO 
TOAD 
"DLO 


GOSUB7000 : GOTO69O 


IFDTS=" *THENDTS="NO DATE“ 

GOSUB3®@:COLOR7: PRINT@34, “I Sl i “;DTS: DNS=* * 
PRINT@66,‘*NO. OF RECORDS IN FILE *;: PRINTUSING *###*° 5 DT 
PRINT@OS, MIS: PRINT@1G@,%1. ENTER DATA VIA KEYBOARD"; 
PRINT@162,°2. | Meee ieee": 
IFNES="CHANGE“THENPRINT HK$ 


IFSTS="“SORT"THENPRINT MKS 
PRINT@2S0,*6. ENTER TODAYS DATE"; 


PRINT@386, “9. PRINT MAILING LABELS": PRINT@418, M13 

COLOR7 : PRINT@45Q, "§ (UssQU cM SRli Od ES Ree 3 ";:SOUNDS®Q, 1 
K$= INKEYS: IS=INKEYS$: IFIS=* “THEN1210 

{FI $="“6 “THENZOOOO 


IFT S=*2“THEN6OO 


roe Me WeITE Dain Fi Uli 

GOSUBi6 

PRINT@SS4, "|e EeREA" ;|USING® ##8° 5 DT; 
PRINT" (siete) clepy“ 

FORN=iTODT 

PRINT@418, "ISice MER eM alee" SUSING* ##4#°;N 
GOSUB 17 

NEXT : GOSUB2® 


IFI$="*1"THENG@OELSEIFI$S=*2"THENDT=0: STS=*": DTS=" “ : GOTOGOO 


co ReaD Uele Freon OLsk 

GOSUB18 

PRINTS354 , "|RSS USING" #284#°5 DT; 
PRINT “Wini=ieiej ak) “ 

FORN=1TODT 

GOSUB13 

PRINT@41S , “Me eReseMsistele eRe” s USING “#48 * 5 N 
NEXT 

ZOSUB2Z2 : GOSUB7900: GOTCE9O 
GOSUB49000 : GOSUB320: COLOR? 

>RINTQLGG, py « 
PRINT@C1S86 , “9 Se eet -emelelel ae i" 

PRINTQl30 , “tunnee SOUNDS®O, : 

I FDMS=“ “THENGOSUB27 : RETURNELSEGOSUB23 : RETURN 


WSING YPIiskK. tot = re ag - = ries es “ i. 


DYSk MENU Lt 
tt 


REN FILE {8 - ERA FILE 
SAVE DATA iW — LOAD DATA 


' a i ™ : ‘ in : | ; 
VIEW HAMES TN FILES. 7 ; .§ DIRECTORY & - INIT DISK 
Ss ‘ ; d ; oe “4 : 4 . 

ENTER TODAYS DA ENU IS-PEEK #-SA 
PHONE LIST == 3 
PLETE LIST | 
ABELS 


- ENTER DATA VIA KEYBOARD 





MAIN MENU - As you'll notice by the MAIN MENU screen dump some changes have oeen 
made to it. The DATE status is printed at top of both Menus. 


OPTION 2 - This now selects ali the disk functions now. 
‘OPTION 6 - The DATE can be entered anytime from the Main Menu. 
OTHER OPTIONS - Refer te Mailing List instructions. 

DISK MENU :- 

R ~ RENAME FILE - This option is used to RENAME any disk files. 
¢ ~ ERASE FILE - This option is used to ERASE any disk files. 


S - SAVE DATA - This cption is used to SAVE DATA files to disk using file name 
of your choice. 


L - LOAD DATA ~ This option is used to LOAD DATA files from disk. 
NOTE - FILENAMES can be from 1 to 8 characters long. 


D - DIRECTORY - This option displays disk DIRectory and it’s STATUS. Use this 
option before using any above. 


1 - INIT DISK — This option is used to INITialise disks. 

M - MENU - This option displays MAIN MENU again. 

P -— PEEK - This option is used to find memory addresses for lines 1@ to 20. If 
you want to change data in lines 1@ to 20 then this routine will provide you 
with addresses required. 


& - SAVE - This option will SAVE DISKLIST to disk. 


- REPL - This option will ERASE DISKLIST from disk and REPLace (SAVE; with 
DISKLIST in memory. 


NOTE - When most options are selected a QUIT option 15 provided in case you nave 
to return to the MENU. The DATE is now also saved along with DATA FILE. 


SILE AGT FOUND or FILE ALLREADY OPEN - if tnese ERRORS nappen tnen DG NOT RUN 
DISKLIST as vou will lose all the DATA. Instead put disk in orive, clase door 
and tvpe in the -ollowing. to regain contrel without losing DATA. 


SOTO 72 ano press RETURN 
S0TOS8= arc oress RETURN 


“ine 20 will TLOSE OPEN FILE while iine os= witil take you to tne sirector:: 
esting fcom where vou ran 78turn to the menu. 


BOOK REVIEW BY ROSS WOODS at = i +4 


VZ 200.3200 ASSEMBLY LANGUAGE PROGRAMMING MANUAL FOR BEGINNERS. 


This 142 page Manual has taken STEVE OLNEY over 18 months to write 
and is for sale at $24.96. I purchased my copy from :- 


S.R. OLNEY P.O. Box 125 North Richmond N.S.W. 2754. 


Below is a condensed version of the Contents to give some idea cf 
the areas covered. 


CHAPTER 1 — INTRODUCTION TO MACHINE CODE —- Page 1. 

CHAPTER 2 - PARTS OF YOUR VZ COMPUTER - Page 7. 

CHAPTER 2 - MACHINE CODE and Hexadecimal Numbers —- Page 11. 
CHAPTER 4 - LOADING MACHINE CODE PEEK, POKE USER - Page 1”. 
CHAPTER © - THE Z80 REGISTERS - Page <1. 

CHAPTER 6 - HARDWARE - CPU, RAM, ROH Video - Page 2’. 
CHAPTER 7 — BASIC AND MACHINE CODE - Peaceful Co-existenc:. 
CHAPTER 8 -— ARITHMETIC OPERATIONS - PAGE 53. 

CHAPTER 93 - THE VIDEO SCREEN - Messages Simple Graphics. 
CHAPTER :2@ - JUMPS, BRANCHES - ‘And More on Stack Operaticns'’. 
CHAPTER 1!: ~ EDITOR ASSEMBLER - Page S°.- 


CHAPTER !2 - PROGRAMMING TECHNIQUES - Page 3. 


CHAPTER i2 - THE Z-80@ INSTRUCTION SET - Page i191. 
CHAPTER 14 - INPUT AND OUTPUT - The Keal Worid Outside. 
CHAPTER 1© - CONCLUSION - Where To Go From Here - Page 121. 
APPENDIX 1! ~ Memory Maps .......-..02- 2 eee ec reee Page 122. 
APPENDIA 2 = °ZSO RESiSters .424.6.000%4.6 65 es ase wie ees Page 126. 
APPENDIX 3 - Z8@ Pinout .......... Sr te nae alee een Brees Page 127. 
APPENDIX 4 -— Keyboard Layout ......-....2.... iit. Page 126. 
APPENDIX 5S - System Pointers ........-22-+2-+2200- Page i2¢. 
APPENDIX S - Common Z80 Opcodes ......-.....---.--. Page i31. 
APPENDIX 7 - Hexadecimal/Decimal Tables ......... Page 138. 
APPENDIX S - Z8@ Mnemonics Recognised By The VZ Editor 
ASSENDIEY 666566 5a 455 SU swe htsn See Page i3¢. 


I found the Manual to be of a decent layout with a good index 
giving full details of each chapter, the Manual is well presented 
uSing 2 plastic ring binder. 


Information is for the VZ not just Z8@ type Computers and !’m sure 
anyone that USES this Manual in conjunction with the Dick Smith 
Electronics V¥Z 200/300 Technical Reference Manual will master Assembly 
Language Programming, Its quite obvious that one has to try out the 
routines and examples given in the Manual to grasp the subjects 
covered. 


On my experience so far working through the Manual I was impressed 
With Steve's methods of explanation. Contents of each chapter are 
readily found in the contents list. I would recommend +9 anyone 
finding this Manual useful to purchase a copy of Programming The Z8®@ 
by Rodney Zaks Published By Sybex Computer Books, this took will 
allow you to cover the use of the complete instruction set tc use and 
design useful routines. 


“R. Weeds. 


os i The Manual is also available from Dick Smith lectronics and 


ads should start tc appear in varicus publications as well. id. 


BLock i TRKANSFERS BY C- HORROUGHiI if: 


There are many situationé in machine language programming where you need to 
move the contents of ai whole bloc: of memory to another locatieon without 
precessing it in any way. Data files, screen images and simple prompt messages — 
all usually consist of a string of bytes which are stored in one place and then 
moved somewhers sise tc be used or displayed. 


Ultimately, e@acn byte must be movea individually but the 2-8@ processor has 
four instructions which help speec things up. These are :- 


LDI - Load and Increment 
LDIR ~- Load and Increment ther Repeat 
{DD - Load and Decrement 
LDDR - Load and Decrement then Reneat 


Their use is best :llustrated ty *he ¢cllowing example :- 


LO 4L, FROM ;source 

LD Se. 72 ;destination 

LD BC. COUN: ycounter 

LDOIR sautomatedc transfer 


This cepresent= slioce transfer at :+'s simplest. First the scoirnters ars set 
UD , with HL containing the address of the ‘first byte te be moved and DE 
zontaining the address of it’s destination. Then BC is loaded with the number 
sf bytes in the block. The last instruction then carries cut the whois 
transfer. T= moves the first byte then increments both HL and DE ‘HL=eL+° , 
NE=DE+t) «95 noint to the next byte and decrements the count in BC <BC=8C-!:. 
This is repeated until BC equals zero, thus moving the whole block. 8 you can 
see, it’s a very powerful instruction. 


An axample of this in use is the scrolling of the screen which takes place 
as you list a program. Each time the bottom line is completed the whole screen 
must be moved up one line to make room for more at the bottom. To rewrits «the 
antire screen, in its new position from the program table in memory would be a 
waste of time because the program is not stored in the form that appears on the 
screen and must be processed. t’s much quicker to take the block of Video RAM 
which starts at the first byte of the second line and move it back S2 bytes tc 
the start of the «irst line. The bottom line is then cleared and the next °: 
of code precessed and written in. 4s you can see, the whole screen i= shi 
in much less time than it takes to write the new bottom line. 


1 
” 
“ 


Suppose vou have a program which does something similar Sut you want to 
scroll the ather way. Tf you used the routine above then FROM would be the 
start of the first line and TO would be the start of the second line. The 
result would be that the second line would be overwritten before it was moved 
and you'd end we with the first line repeated 15 times. ‘The answer is “c 
reolace LDIF with LDDR and start at the Sottom of the screen, at the end of the 
next ¢o last ifline. This instruction, after moving gach byte. decrements HL 
and DE as well as BC and 50 moves backwards through the block. if the size of 
the block is ‘tess than the distance being moved then 14 doesn’t matter which 
instruction is used but if not then use LOIR to move down inh memory and LODR =o 
MOVE up. 


Sometines the exact langth of the 2icck is net known im advarce. %ecordse in 
a data +112 nav 36 terminated with a care .age return as a marv“er anc vour Sicc 
transfer -cutine will have to test ‘er this marker to see if the end Sas Deen 


“eached. in this tase something like the -ollowing will be usad :- 


BLOCK TRANSFERS CONT . ~ - “ “ i< 


() HL, FROM sset pointers 
LD DE, TO : 
LD BC, COUNT 3; & counter 
1D 4&4, ODH » CR code for comparison 
NEXT CP  tHL) ; compare character with CR 
JR 7Z, END 3; exit if found 
LO ; else transfer byte and increment pointers 
JP PE, NEXT ; return for next byte if BC <> @ 
END RET ; exit 


The pointers and counter are set up as before and the code of the marker is 
placed in A. The current byte is then compared with the marker to see if the 
end has been reached. in which case the transfer terminates. If there is no 
match then LD] moves the byte, increments HL and DE, and decrements BC as 
before but dees not automatically repeat. If BC has not reached tern thre 
PARITY/OVERFLOW flag will be set and the routine will jump Back for the next 
byte. If not then it is cleared and the routine ends. The counter anc the test 
for crzero are optional. ff there is mo maximum length te be tested then BC need 
mot be set ‘it will still he decremented) and line 3 could Se JR NEXT, | 


There are two ways im which these -outines tan be modi‘iec to mare “hem nors 
jeneral. Sirstiv, the pointers and counter may not be known ahead ct time Sut 
he calculated py the main program and held as variables. This makes the 
IMMEDIATE addressing mode impossible and the ABSOLUTE or EXTENDED moce must be 
sed, Secondl,, the routine might have to werk out the direction of transfer 
inorder «to use the appropriate instruction, as mentioned osefors. The most 
mbvious way to de that is to subtract TO from FROM and test for the sign of the 
result. Fortunately the HL register pair may be used as a 16 bit accumulater 
and there is a 16 bit SuBtract with Carry instruction available. Tre general 
routine might end up looking like this:- 


SCROM DEFW an 
TH DEFW non 
MOUNT DEFW nan 


pointers and counter 
Variables defined in 
Main program 


=.es 2st wa 


4 
TRNSF LD HL, (FROM) 3; load pointers 
19 DE, (70) : 
ao BC, (COUNT) ; & counter 
SCF ; set carry flag 
i ; complement (ie. clear) carry flag 
SBC HL, DE ; FROM - TQ 
. ML, (FROM) |; reload FROM 
JP M, MVUP 3; jump if result negative 
Laak ; else transfer down 
JR  E&ND ; & exit 
MVUP LODDR ; transfer up 
END RET 3 exit 


aS YOU can see the pointers are now passed tc the routine from outside and 
Soth -¢orms of the transfer instruction are used. SBC 15 a subtract with carry 
sc the carry flag must be cleared first. FROM has been corrupted by the 
Supt’ action anc must oe reicaded Sut, as foac instructions de mot affect the 


slags, the SIGN flag is <till valid. 


- imMilar rcutine could be written using the LD] ana LOD instructions in a 
ner? general wav with tests for markers or address locations as needed. ‘hers 
are nary s3essib5le nodifications but the essential technique is defined oy the 
Mature if «me slock transfer imstructions themselves. Obvicusiy the same et-ect 
T3ui 2 5e achieved by a combination of ioad, incrament and jJectement 


ceetemyet ier es mpt cme ec metl+ weuldt ge anert limes = roce and zlcwer cesult:. 


4! 


ME = Ne arveter orccess = S805 §- S35 SRO Ae Erigine: Sat 


wnrenangec unfi. it 1s Supsequentiy overwritten. 


. 
~~ 
- 


i 


’ 


ESNHANCING FIND BY LARRY TAWLOF: i? 


The Find Utility program was originally written by Chris Stamboulicis anc | 


published in Personal Computer Games (P. 42) in April, 1985. At the time, the : 
utility was located in an unused section of the Communications area of RAM, |. 
starting at 7A28H (31272 Decimal). 2 


My contribution to the utility has involved firstly, the addition of cursor — 
positioning before printing, to prevent longer numbers wrapping around the - 


screen, which made reading them a little difficult. Secondly as weli as 


printing out line numbers I added the facility to display the locatisan of the > 


line in memory. Finally, as the program would no longer fit the unused RAM 
area, . addec a relocaticr routine, to shift the utility te tre top of. 
available mnemer:,. 


The utility enables a search to ce mace ot a BASIC program for 3 speci+:ad 
string ot ASCII characters. Because a detckenisation of the string :5 carried 
cut, aven BASIC keywords such as REM, which are nermally stored as single byte 


tokens, will be located, as will the same string of ASCII characters shoulc 
they occur between inverted commas following a PRINT statement eq. PRINT" 
TREMBLE”. Any leading spaces in the string specitiec will be ignorea dy tre 


-gutine in its search for a match. 


To ati.ise the commanc, type PRINT&”, followea oy the ASCII string ct 
eharacters to be searched ‘for and then close the inverted commas, as 15 
nermaliy the case eq. PRINTK"REM". Finally press the RETURN key. If cecurences 
of the string are found within the program, the relevant line number and «»emor 
location wili be orinted on the screen. The memory location g:van, 15 “he 
first eoyte of the first character in the line of BASIC ang not the lecation cr 
the 4irst byte of the string being searched for. 


l am certain that there are many modifications and enhancements, that can 
he made to this program, sc go to it. 


SHESHAHHHAHHHHAAERAHHHHAAEEHHA SHAE EH HRSA SR AR ABFA 


% THIS SECTION ASSIGNS VALUES TO SOME OF THE # 

# LABELS USED WITHIN THE PROGRAM. 
FFHHEAAHHAAHHAEHHHEHHEHHFHEREERERAR ERATE SG BABB TF 

Q@Oi BUFR =QU  TASDH ; BUFFER FOR SEARCH STRING 

2@2 LEN fAU 7FADGH » CONTAINS LENGTH OF SEARCH STRING 
92S NUM =QU 79ADH ; CONTAINS CURRENT LINE NUMBER 

304 MEM <=QU 7AZBH : CONTAINS MEMORY LOACTION OF LINE 
20S NEXT €QU 79BSH : POINTS TO START OF NEXT LINE 


SHHPAFHHARHAEEHHRAHHR HAHAHA AHHRAERERSBRBR ASAT EE FFE FF 
# THIS SECTION OF THE PROGRAM RELOCATES THE FIND # 
# ROUTINE TO THE TOP OF MEMORY # 
HAHHAAHHHHAFHHHARAHHHAHAHHEESS ARETE HB BH FH 


206 CALL 1B49H ; DO A NEW 

207 _D  HL,7AESH : SET START OF BASIC 

208 LD (78A4H) HL 3 PROGRAM POINTER 

a@@S TOPX _5 HL, (7SB1H) : GET TOP. OF MEMORY POINTER 

212 LD  SC,END-FIND ; GET LENGTH OF PROGRAM 

Qi! PUSH SC : SAVE IT 

diz 40R 4 : RESET ALL FLAGS 

Qi SBC =L,BC . SUBTRACT PROGRAM LENGTH FROM TOP MEMORY 
gia _D  (T7SBIR} HL +; LOAD NEW TOP MEMORY 

a= INCL | INCREASE 3Y ONE 

Bis OSH SL . 3AVE IT 

217 ~) 8.2: | RESERVE =2 SVYTES CF STRING =POCE 
a: (GF + | RESET ALL =LAGS 


a1 Se0 46.720 - SUBTRACT i7RING SPOCE ROM “CF CF MEMOF 


SENHANCING FIND CONT .- as ~ = = = i+ 


a20 LD  <(7B8AQH: ; LOAD START OF STRING SPACE ADDRESS 
@21 DEC HL ; DECREASE BY ONE 

Q22 LD  (78ESH).HL 3 LOAD ADDRESS OF STACK 

223 POP DE ; RETRIEVE TOP OF MEMORY ADDRESS PLUS ONE 
924 POP BC » RETRIEVE PROGRAM LENGTH 

Q25 INIT LD A,@CSH : LOAD THE JUMP OPCODE 

226 LD (7994H) : INTO PRINT & VECTOR 

027 LD  (7995H).DE 3; LOAD VECTOR WITH DESTINATION ADDRESS 
928 LD 4HL.FIND : LOAD START ADDRESS OF PROGRAM TO MOVE 
929 LDIR ; MOVE IT 

232 LD BC,1A818H 3 RETURN 

931 JP 19AE ; TO BASIC 


$BAEHARAAAHEARASAAASAAAAHS HAART EER GREAT ARAB BFS 
# THIS SECTION OF THE PROGRAM IS THE FIND ROUTINES 
tdR-HbSE SE HEHEHE A AHA EERE HT BBS BB 8 BFF BS 


Q@32 FIND INC SL * HL POINTS TO SEARCH STRING 
DSS PALL 358Cr : MOVE STRING TO THE BUFFER 


924 _D A, (LEN: . GET LENGTH OF STRING 

I5 DEC 4 : SUBTRACT ONE 

Dé LD (LEN) ,A ; AND REPLACE IT 

237 OR A . IF NULL STRING 

928 JR o2,8K17 + THEN EXIT 

239 LD 1X%,(7884H} =; GET START OF PROGRAM 
40 TEET LD A,(IX+@@H? 3; GET LSB OF POINTER 

a4: OR A » CHECK FOR ZERO 

242 JR NZ,CONT s IF NOT, THEN CONTINUE 
daz LD A,{IX+@1H)  ; GET MSB OF POINTER 

244 IR A . CHECK IF ZERO TOO 

245 GR 2,EXIT : MUST BE END OF PROGRAM, SO EXIT 
@46 CONT LD LL, (IX+@@H) + GET POINTER 

D47 LD oH (IX+@1H) 3 TO THE NEXT LINE 

24g LD  (NEXT),HL 3 SAVE POINTER 

949 LD HL,(1X+@2H) ; GET LINE 

250 LD HL, (IX+@3H) ; NUMBER 

251 L (NUM) ,HL  ; SAVE CURRENT LINE NUMBER 
a52 PUSH IX ; MOVE POINTER 

aSz POP HL s iNTO HL 

asa INC HL + INCREMENT 

Iss INC HL ; TO FIRST 

256 INC HL : BYTE OF 

957 INC HL ; PROGRAM LINE 

258 LD  (MEM),HL 3 SAVE ADDRESS OF FIRST BYTE IN LINE 
259 CALL 2B7EH . DETOKENISE CURRENT LINE 
262 \D DE,79EBH . LOCATION OF EXPANDED LINE 
J6i -RE LD A. “LEN) ; GET LENGTH OF STRING 

262 _D BAA ; INTO B 

062 _D #HL.,BUFR-1  ; SYTE BEFORE BUFFER 

264 SCAN INC AL . NEXT BYTE IN STRING 

065 LD AS HL? : CHECK IF END 

26a oR OA : OF STRING 

267 JR  2,EXiT ; IF SO, THEN EXIT 

268 D8, (DED + GET BYTE FROM LINE 

2é9 ORF oA . CHECK FOR END OF LINE 
279 J 2 MORE » IF SO, THEN NEXT LINE 
a7} INC DE ; GET NEXT BYTE 

a7z SF RL. . CHECK IF SAME AS STRING 
077 iR  NZ,PRE : IF NOT, THEN NEXT SYTE 
ava QUNZ SCAN + CONTINUE UNTIL SLL FOUND 
Q7= USME LD 420K © ALL FOUN 


ays ral OocAr : 30 PRINT - sPSCe 


ENHANCING FIND contr. . - « - - 4s 


O77 LD HL, (NUM) + GET LINE NUMBER 

2793 CALL @FAFH ; AND PRINT IT 

079 LD A, 28H 3; PRINT 

28 CALL @33AH ; A SPACE 

Q8i LD HL, (MEM) ; GET MEMORY LOCATION OF LINE 
982 CALL @FAFH : AND PRINT ([T 

a83 LD A, (7AREH) » CHECK CURSOR POSITION 

284 ADD A,@BH : IF NOT ENOUGH 

85 AND 22H ; ROOM ON LINE 

286 JR NZ ,CRTN 3 DO A CARRIAGE RETURN 

087 MORE _f TX, (NEXT? ; GET NEXT LINE 

age JF TEST + GO CHECK NEXT LINE 

989 CRIN LD A, @Dr : LOAD CARRIAGE RETURN VALUE 
BID CAL. @354H © , PRINT {iT 

B91 Jk MORE s CONTINUE SEARCH 

O92 eXIT JF 1A19H | ; RETURN TO BASIC 

O93 END DEFS @ + END OF PROGRAM 

NOTE: 2 As Larry mentions there are enhancements or mods “nat could oe nace 


ano one that Sprines te mine is for FIND to work oroperty with LFRINT commanc. 
I¢ LERINT&"*string” is used then the orintout is without any spaces anhat scever 
cetween line numbers anc memory. addresses. =. 


DO IT YOURSELF PROJECT 
REPLACING VZ 2@0/3@@ MEMBRANE KEYBOARD :- 


I¢ some of vour keys on the VZ do not work or you nave to hit them hari 
‘OUCH) to register then you need a replacement MEMBRANE KEYECARD whicn «5 
available ¢rom Dick Smith stores. They have to be ordered in from spares and .* 
may take a few weeks or longer before it arrives. Below is tne sart No’s. tor 
/7200/7200 MM. K’ boards. 


PART MUMBER - X 73@@QH@@4i - V23@@ MEMBRANE KEYBOARD - Price $22.50. 
PART NUMBER - X 72@@@H@@29 - VZ20@ MEMBRANE KEYBOARD - Price $22.50. 


NOTE :- “heck with Dick Smith for correct prices. 


Replacing the Memb. K’ board is fairly simple. Turn the YZ upside down arc 
ramove the si: screws aAcliding the two halves of the case together and turn ie 
right way up again. Next lift the top half of case up and turn it upside dcwn 
Joing towards yourself. 


You wili see a ribbon cable going from the computer ©.C.5 (Printed circuit 
Beard) tc the bottom of the keyboard °.°.8. Remove the 12 small screws nolding 
the two halves of the keyboard together seing carefull not to lose the smal. 
screws im che process. 


Next li-tt the -.C.B. ang put i1t t5 one side. The Memo. * board snould se 
visible now which is c‘cemoved. Before proceeding further get two Onoks apcut 
‘@mm thicn ana out 4 beok under 2@ach end of the upside down xeyboarc si: the kevs 
ar@ Nanging gewn and not touching the tapie. 


Serore zutting tne sew Memb. i Doard im owhice is Silgmtiy .onger witm ENTS 
xevpads. a small medi-ication ‘has to be carried out to it. One or the |xt73 
“@vpads nas 710 3@ Tut sut which cavers =ne vacie where “he -f) goes -n. Once 
Jone cust “Sassembie seing tarerul net to rvertignter tne screws. YT .i f.te 
sQur “8yDCart Ow “as a Tew Lease tr tne 1:78. 


WCTE - 1 ve -2placec tne %. “ tearc cr -2T@@ an... The orccseure snGais 2B ws 
game -cr (1720. wut 20m 7 -orget .21 0°: %. “4 2Qartd [as a ai--erent cart \c. 


FOR SALE DISK EFEYDYASS CONVERTER =&£O 


KK OK KOK OK CK RKOR RRR CROCK CR ROR OK SOK KCK KKK KKK OK OK ROK TKO KOK OK IRR ROK “KK K OR OK OK KCK KE 


CE A SL CS SS 
. ioe a oe a 


— ~ ~ ae ode 


SEMPLES 


= DISK CONVERSION UTILITY? 


wr Geer eS Aes “| my ran ee v vo oADRLDAT IM 
CaANUEPRT YOUR EDITOR ASSEMBLER TO FUL! DISK CPERATION - 
oe a ee ee - - 
S33 cas & tonversion package ta convert tne YicKe CMitA saites 
ta? va om an 25 . el 1 ce ay ee ee Wet ee Th? a pm am ae = 
Se ay ere Wea ere: ee Ald Seon ss Lae Se Pie bes b ee en 
Sie a en. ee Fea 
om - a * =“ i rs a Fa 1 see 
: a <2 tO ee CNStage ani 15 avarias.7 ieee sear = 
Mee Thee Sada tioprs TU Sf x 
ce i eh nent a at theaed Pace a cak 
a oy Sr et ae mE AL. y . veo. ‘ - a ~ mo Sais. ue ss 
eae 2% ‘(S.f BURA NSW AUSTRALIA -hans Zu SS ih 


ar 
ie 
+e 


RRR ACK KCK UK ROKCUKCKCKCK OK ACK KKK OR KOR OK 


OR CK CK KK KCK UE SK CK OUR CCR AUK ROK KROES 


*K *«K& FOR SALE *®* *® K * FOR SALE & 
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PATCHS.1 - COPYRIGHT - H.V.VZ.U.G. 


This single Fatch will convert your 


E & F 
DISK use 
functians. 
2 DRIVES. 


EDIT TEXT 
C)LEAR TEXT 
P)RINT TEXT 
L)OAD FILE 
S)AVE FILE 
VIERLPY FILE 
Q) UIT FROGRAM 
D) ISK 


TAPS WORD PROCESSOR for full 
while retaining all TAFE 
It can be used with 1 or 

Below are the two Menus. 


L) OAD 
5) AVE 
D) IR 
E) RA 
R) EN 
I)NIT 
im2) 
M) ENU 


DRIVE 1 


Fast SAVING and LOADING of TEXT 


DATA to 
using Block 


Fuld 
together with 
transfer utility 


This 
or 
facility has 
DOS owners. 


SYSTEM REQUIREMENTS 
DISK DRIVE + V1.@ CR Vi.2 


and fram Disk 
SAVE or LOAD. 


ror 
Tape Word Processor. 


Vi.2 Disk Controller. 
been 


is provided 


instructions are supplied 


Disk 
EXF 


Tape to 
your 


Patch will work with V1.0 


A STATUS 
added for V1.@ 


DOS 


VZ20@ + 16K RAM PACK OR 


YVZ290 + 13k 


(16K RAM PACK + 2K) 


The price - $10.90, NZ AUS12.9@ and 


available fram 


5 = 
ad 


HUNTER VALLEY VZ USERS © 
toi JESMOND 2299 


2,9. BOX 


N.S.aW. AUSTRALIA Phone 


GROUF 


hO497S1 2/756 


” 


| 
| 
| 





fe eae a SES ee 


~ i ae es TF. "9 r aa 


—— 


* * * NEW NEW NEW 4% +%*% + 


QUICKWRITE WORDPROCESSOR 
DISC BASED WORDFPROCESSOR 
AB4O. 00 


QUICKWRITE WORDPROCESSOR 1S SUITABLE FGR THE 
EXPANDED ¥Z200 AND VZ500 COMPUTERS. 


QUICKWRITE is software on disc, so RAM and ROM 
PACKS do not have to be plugged and unplugged into the ‘/2 
which can cause loose port socket connections. 

QUICKWRITE runs on either the LASER ar YZ DUS disc 
controller. 

QUICKWRITE saves and loads document text (data) to 
disc. . 


FEATURES. 
* Fast disc saving and .oading of document ‘ext 
(data). 
$ Automatic periodic saving of data while in typing 
mode if required. 
* Tape saving and loading of data as a backup 
medium. 
Loading of ERF tape files (data) possible. 
Printer font changes within the data. 
Capitals/lower case software lock an/ott. 
Accommodates wide printers - up to 255 columns. 
A Frinter/Plotter can also be usec. 
Four print justify/wragged modes. 
Adequate operator warnings. 
Labelling of discs allowable, suct a5 date, code 
eter. 
# The usual editing facilities:— 
Delete, Insert, 7ind and Repiace, Paste, Cut 
etc, 
4 Number | or number 2 disc drive selection allowed. 


Mo kK Oo 


+ The price of A$40.00. 
within Sustralia. 


inciudes surtace postase 


Sold ONLY ay YSOPTWARGZ 
29 Agnes st.. TOOWONG 2/LAND. 4Gn0. 
AUSTRALIA. 


O7Y371 3707. 


